1 ' If there is an argument, use it as the directory to change to.
2 If WScript
.Arguments
.Length
=1 Then
3 Set WshObj
= CreateObject("WScript.Shell")
4 WshObj
.CurrentDirectory
= WScript
.Arguments(0)
7 ' Launch the shortcut in the current directory which has the same
8 ' base name as this script.
9 Set AppObj
= CreateObject("Shell.Application")
10 AppObj
.ShellExecute(Replace(WScript
.ScriptFullName
, ".vbs", ".lnk"))